  DEFINE STREAM bf .
  OUTPUT STREAM bf TO c:\sprice.txt.
  FOR EACH pc_mstr WHERE pc_list = "G360001" NO-LOCK:
    PUT STREAM bf "@@batchload XXpppcmt.p" SKIP.
    EXPORT STREAM bf "220".
    EXPORT STREAM bf "S36004" pc_curr pc_prod_line pc_part pc_um pc_start.
    EXPORT STREAM bf pc_expire pc_amt_type.
    EXPORT STREAM bf pc_amt[1].
    PUT STREAM bf "@@END" SKIP.
END.

OUTPUT STREAM bf CLOSE.
